home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / qwkie31u.sda / QWKIE.ZIPPER (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  2KB  |  20 lines
  1. 10 INPUT".MSG FILENAME";F$:IFF$=""THEN10
  2. 15 IFRIGHT$(F$,4)<>".MSG"THENF$=F$+".MSG"
  3. 20 POKE49152,LEN(F$)
  4. 25 FORI=1TOLEN(F$):POKE49152+I,ASC(MID$(F$,I,1)):NEXT
  5. 30 INPUT"DEVICE NO.";D1$
  6. 35 D1=VAL(D1$):IFD1<8THEN30
  7. 40 INPUT"OUTPUT DEVICE NO.";D2$
  8. 45 D2=VAL(D2$):IFD2<8THEN40
  9. 50 OPEN2,D1,2,F$+",R"
  10. 55 OPEN12,D1,15
  11. 60 F2$=LEFT$(F$,LEN(F$)-4)+".REP"
  12. 65 OPEN3,D2,3,F2$+",S,W"
  13. 70 OPEN13,D2,15
  14. 75 INPUT#12,E$,I$,J$,J$
  15. 80 IFE$<>"00"THENPRINT"DEVICE"D1"[157]:"I$:GOTO100
  16. 85 INPUT#13,E$,I$,J$,J$
  17. 90 IFE$<>"00"THENPRINT"DEVICE"D2"[157]:"I$:GOTO100
  18. 95 PRINT"[215]ORKING ";:SYS 11*256
  19. 100 FORI=0TO15:CLOSEI:NEXT
  20.